home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Program Timeout.xpl < prev    next >
Text File  |  2002-10-20  |  2KB  |  66 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="2"
  3. "COUNT"="2"
  4. "UIPATH 1"="Startup/Shutdown\Shutdown\Windows NT/2K/XP\10) Program Shutdown"
  5. "UIPATH 2"="System\Timeouts"
  6. "NAME"="Program Timeout"
  7. "VERSION"="1.33"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Manually (sec)"
  10. "TEXT 2"="On Exit (sec)
  11. "DESCRIPTION 1"="If an application should be ended, Windows waits a specified interval before it declares the application as "Not responding"."
  12. "DESCRIPTION 2"="The interval of "Manually" is used when you are using the Taskmanager to end an application (default: 5 s)."
  13. "DESCRIPTION 3"="The interval of "On Exit" is used when this computer will be shut down and Windows tries to exit the running applications (default: 20 s)."
  14. "DESCRIPTION 4"="Both values are in seconds."
  15. "DESCRIPTION 5"="Please note: These settings only affect the current user."
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"="Thanks to Wayne M. [wmartins@mn.rr.com] for the current user notice!"
  20.  
  21.  
  22.  
  23. sP="HKCU\Control Panel\Desktop\"
  24. sV1="HungAppTimeout"
  25. sV2="WaitToKillAppTimeout"
  26. Sub Plugin_Initialize 
  27.  i=RegReadValue(sp & sv1)
  28.  if IsEmpty(i)=false then
  29.     if IsNumeric(i) then
  30.        i=i/1000
  31.        SetUIElement 1,i
  32.     end if
  33.  end if
  34.  
  35.  i=RegReadValue(sp & sv2)
  36.  if IsEmpty(i)=false then
  37.     if IsNumeric(i) then
  38.        i=i/1000
  39.        SetUIElement 2,i
  40.     end if
  41.  end if
  42. End Sub
  43.  
  44. Sub Plugin_CheckData(ElementIndex)
  45. End Sub
  46.  
  47. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  48.  i=GetUIElement(1)
  49.  if len(i)>0 then 
  50.     i=i*1000
  51.     Call RegWriteValue(sp & sv1,i,1)
  52.  end if
  53.  
  54.  i=GetUIElement(2)
  55.  if len(i)>0 then 
  56.     i=i*1000
  57.     Call RegWriteValue(sp & sv2,i,1)
  58.  end if
  59. End Sub
  60.  
  61. Sub Plugin_Terminate 
  62. End Sub
  63.  
  64.  
  65.  
  66.